if gEvaluationData = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] then
alert("Please use the pushbuttons to record your observations.")
else
set vSourceText to the text of member "eval source"
set vThisField to "eval print"
set vTempText to EMPTY
put "Decision Making Strategies -- CD-ROM Evaluation" & RETURN & "-----------------------------------------------------------------" & RETURN after vTempText
put "Your Opinion Matters! To provide you with the highest quality training and education programs, the Alliance needs your feedback." & RETURN after vTempText
put "Please FAX this form to: 512-474-0706" & RETURN & RETURN after vTempText
put "How much time and effort did you devote to each of the main sections of the CD?" & RETURN & RETURN after vTempText
repeat with xData = 1 to 4
put line xData of vSourceText after vTempText
case getAt(gEvaluationData, xData) of
0:
set vChoice to ": No selection"
1:
set vChoice to ": A lot"
2:
set vChoice to ": Moderate amount"
3:
set vChoice to ": A little"
4:
set vChoice to ": None"
end case
put vChoice & RETURN after vTempText
end repeat
put RETURN & "Using a 5-point scale, how much do you agree or disagree with the statements below? " after vTempText
put "(Completely Agree 5, Completely Disagree 1):" & RETURN after vTempText
repeat with xData = 5 to 11
put line xData of vSourceText && string(getAt(gEvaluationData, xData)) & RETURN after vTempText
end repeat
put RETURN after vTempText
put line 12 of vSourceText & RETURN after vTempText
put the text of member "eval1 field" & RETURN after vTempText
put line 13 of vSourceText & RETURN after vTempText
put the text of member "eval2 field" & RETURN after vTempText
put line 14 of vSourceText after vTempText
case getAt(gEvaluationData, 12) of
0:
set vChoice to " no selection"
1:
set vChoice to " Yes"
2:
set vChoice to " No"
end case
put vChoice & RETURN & RETURN after vTempText
put line 15 of vSourceText & RETURN & RETURN after vTempText
put the text of member "eval3 field" & RETURN & RETURN after vTempText
put "To fax: send this printed copy to 512-474-0706" & RETURN after vTempText
put "Contact The Alliance on the internet at www.employeegrowth.com" & RETURN after vTempText
set the text of member vThisField to vTempText
print(the text of member vThisField)
end if
end
on printButton
if iAmActivated(gMasterData) then
getPrintData()
set vThisField to string(getUserArea(gMasterData)) && "field"
print(the text of member vThisField)
else
alert("Printing is unavailable until an activity is completed.")
end if
end
on getPrintData
set vThisField to string(getUserArea(gMasterData)) && "field"
set the text of member vThisField to EMPTY
set vTempText to EMPTY
put "---- Decision-Making Strategies, CD-ROM Evaluation ----------" & RETURN & RETURN after vTempText
put RETURN after vTempText
set the text of member vThisField to vTempText
end
on getBigString
set vText to EMPTY
repeat with X = 1 to 5
put line X of field "print1" & RETURN after vText
put the text of member ("zField" && string(X)) & RETURN after vText
end repeat
put the text of member "print2" & RETURN after vText
